<SCRIPT language="JavaScript">
            function  window.confirm(str){
                   str=   str.replace(/\'/g,   "'&   chr(39)   &'").replace(/\r\n/g,   "'&   VBCrLf   &'").replace(/\n/g,   "'&   VBCrLf   &'");   
                   execScript("n   =   msgbox('"+   str   +"',   257,   '')",   "vbscript");   
                   return(n   ==   1);   
             }   
</SCRIPT>

<%
Function GetSafeStr(str)
	GetSafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
End Function

Function FileContentSize(aaa)
       Dim aSavePathFileName
        aSavePathFileName = Split(aaa, "|")
        Dim i,bbb,dddd
        dddd=0
        For i = 0 To UBound(aSavePathFileName)
               bbb = aSavePathFilename(i)
                Dim backFileName
                backFileName = Split(bbb, "/")
                Dim i2,bbb2
                For i2 = UBound(backFileName) To UBound(backFileName)
                       bbb2 = backFileName(i2)
                Next
                dim fso,d,fc,f,drvpath,fsofile		
                set fso=server.createobject("scripting.filesystemobject")
                drvpath=server.mappath("..\eWebEditor/uploadfile\" & bbb2)
                if fso.FileExists(drvpath)=true Then
	      set d=fso.getfile(drvpath) 
                        dim dsize
                        dsize=d.size
                        set d=nothing   
                end if
                set fso=nothing   
                dddd=dddd +dsize
        Next
        FileContentSize=dddd
End Function

Function FileContentSize2(aaa)
                           dim size,showsize
	         size=aaa
	         showsize=size & "&nbsp;Byte" 
	         if size>1024 then
	              size=(size\1024)
	              showsize=size & "&nbsp;KB"
	         end if
	         if size>1024 then
	              size=(size/1024)
	              showsize=formatnumber(size,2) & "&nbsp;MB"		
	         end if
	         if size>1024 then
	              size=(size/1024)
	              showsize=formatnumber(size,2) & "&nbsp;GB"	   
	         end if   
                          FileContentSize2=showsize 
End Function

sub userStanding(sss)
        dim rs,spl
         Set rs=server.createobject("ADODB.RECORDSET")
         sql="SELECT * FROM ts_userinfo where username='"&sss&"'"
         rs.open sql,conn,1,1
              if not rs.eof then
                   if rs("bclass")=1 then
                          Response.Write "<img src='../images/cjgly.gif' alt='Ա' width='16' height='16'>"			  
                   elseif rs("bclass")=2 then
                          Response.Write "<img src='../images/gly.gif' alt='Ա' width='16' height='16'>"
                   elseif rs("bclass")=3 then
                         Response.Write "<img src='../images/bz.gif' alt='' width='16' height='16'>"
                   elseif rs("aueUser")=True And rs("bclass")=0 then
                         Response.Write "<img src='../images/RZHY.gif' alt='֤Ա' width='16' height='16'>"
                   else
                         Response.Write "<img src='../images/ZCHY.gif' alt='עԱ' width='16' height='16'>"
                  end if
              end if
         rs.close
         set rs=nothing
end sub

sub UserInfoLink(aaa) 
        dim rs,sql
        Set rs=server.createobject("ADODB.RECORDSET")
        sql="SELECT * FROM ts_userinfo where username='"&aaa&"'"
        rs.open sql,conn
             if not rs.eof then
                    if len(aaa)>9 then
                           Response.Write "<a class=a2 target='_blank' href=../wyl/wy.asp?keyword="&aaa&" title='û:"&rs("username")&"&#13;&#10;Ա:"&rs("sex")&"&#13;&#10;:"&rs("birthday")&"&#13;&#10;Ȥ:"&rs("interest")&"'>" &(left(aaa,9))& "...</a>"
                    else
                           Response.Write "<a class=a2 target='_blank' href=../wyl/wy.asp?keyword="&aaa&" title='û:"&rs("username")&"&#13;&#10;Ա:"&rs("sex")&"&#13;&#10;:"&rs("birthday")&"&#13;&#10;Ȥ:"&rs("interest")&"'>" &aaa& "</a>"
                    end if
             else
                     if len(aaa)>9 then
                            Response.Write "<a class=a2 title=''>" &(left(aaa,9))& "...</a>"
                     else
                            Response.Write "<a class=a2 title=''>" &aaa& "</a>"
                     end if
              end if
        rs.close
       Set rs = Nothing
end sub

function showlistok()
        dim SQL,RS
        SQL = "SELECT showlist FROM option1"
        Set RS = Server.CreateObject("ADODB.Recordset")
               RS.Open SQL, Conn
                       showlistok = RS("showlist")
         RS.close
         Set RS=nothing
end function

function MYcolor()
            dim t,i,k,s,wordcolor,w1
            s=16
            redim t(16)
            t=Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f")
            randomize timer
            for i=0 to 5
                 k=int(rnd*s)
                 wordcolor=t(k)
                 w1=w1 & wordcolor
            next
            MYcolor="#" & w1
end function


Function isAllAAH(isCommId)
    isAllAAH=False 
    Dim rs,sql
    sql="select authentication,autSel,boardhidden from board where Communityid="&isCommId
    Set rs=conn.execute(sql)
        Do While Not rs.eof
            If rs("authentication")=True or rs("autSel")=True or rs("boardhidden")=True Then
                isAllAAH=True		 
		    Else
                isAllAAH=False		    
                Exit Function 
            End If
            rs.movenext
        Loop 
    rs.close
    Set rs=Nothing
End Function

Function isAutSelBoard(isCommId)
    isAutSelBoard=False 
    Dim rs,sql
    sql="select autSel from board where Communityid="&isCommId
    Set rs=conn.execute(sql)
        Do While Not rs.eof
		    If rs("autSel")=True Then
		        isAutSelBoard=True
			Else
		        isAutSelBoard=False	
			    Exit Function
		    End If 
            rs.movenext
        Loop 
    rs.close
    Set rs=Nothing
End Function

Function isCBCipher(isCommId)
    isCBCipher=False 
    Dim rs,sql
    sql="select * from board where Communityid="&isCommId
    Set rs=conn.execute(sql)
	    Dim i 
        Do While Not rs.eof
		    i=i+1
            rs.movenext
        Loop 
		If i=0 Then
		    isCBCipher=True
		End If 
    rs.close
    Set rs=Nothing
End Function

Function isAllHiddBoard(isCommId)
    isAllHiddBoard=False 
    Dim rs,sql
    sql="select boardhidden from board where Communityid="&isCommId
    Set rs=conn.execute(sql)
        Do While Not rs.eof
		    If rs("boardhidden")=True Then
		        isAllHiddBoard=True
			Else
		        isAllHiddBoard=False	
			    Exit Function
		    End If 
            rs.movenext
        Loop 
    rs.close
    Set rs=Nothing
End Function

Function isAllAutSelAndHidd(isCommId)
    isAllAutSelAndHidd=False 
    Dim rs,sql
    sql="select autSel,boardhidden from board where Communityid="&isCommId
    Set rs=conn.execute(sql)
        Do While Not rs.eof
            If rs("autSel")=True Or rs("boardhidden")=True Then
                isAllAutSelAndHidd=True		 
		    Else
                isAllAutSelAndHidd=False		    
                Exit Function 
            End If
            rs.movenext
        Loop 
    rs.close
    Set rs=Nothing
End Function

%>
